home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
db2ios.arc
/
INVENT.INV
< prev
next >
Wrap
Text File
|
1983-01-04
|
2KB
|
67 lines
* invent.inv 08/18/83
SET CONSOLE OFF
? CHR(28)
SET CONSOLE ON
GOTO TOP
STORE 0 TO pageno
STORE 0 TO col1
STORE 0 TO col2
STore 0 TO col3
STORE 0 TO COL4
STORE 0 TO COL5
STORE 0 TO COL6
STORE 0 TO COL7
STORE 0 TO COL8
STORE 0 TO COL9
STORE T to MORE
SET MARGIN TO 5
DO WHILE more
STORE pageno + 1 TO pageno
STORE 7 TO lineno
ERASE
EJECT
? ' '
? '========================= SIG/M DISK INVENTORY ====================='
? ' '
? ' ' + date() + ' PAGE: ' + str(pageno,3)
? ' '
? 'VOL OPEN BACK WAITING STOCK CLOSING NORMAL SHOULD ACTUAL CLOSING'
? 'NO. INVENT ORDERS TO SHIP RECVD INVENT. STOCK ORDER ORDER BALANCE'
? ' '
DO WHILE lineno <55
IF .NOT. EOF
STORE open:inv-back:ord-wait:ship+recvd TO it
STORE COL1 + OPEN:INV TO COL1
STORE COL2 + BACK:ORD TO COL2
STORE COL3 + WAIT:SHIP TO COL3
STORE COL4 + RECVD TO COL4
STORE COL5 + IT TO COL5
STORE COL6 + NORM:STK TO COL6
STORE COL7 + ORDER TO COL7
STORE COL8 + PEND TO COL8
STORE COL9 + IT + PEND TO COL9
? STR(disk,3,0) + ' ' + str(open:inv,3,0) + ' ' + STR(back:ord,3,0);
+' ' + STR(wait:ship,3,0) + ' ' + STR(recvd,3,0) + ' ';
+ STR(it,3,0)+' '+ STR(norm:stk,3,0) + ' ' + STR(order,3,0);
+ ' '+str(pend,3,0)+' ' +str(it+pend,3,0)
ELSE
STORE f TO more
ENDIF not .EOF.
STORE lineno + 1 to lineno
skip
ENDDO while lineno > 55
ENDDO more
? '----------------------------------------------------------------------'
? ' ' + STR(COL1,4,0)+' ' + STR(COL2,4,0) + ' ';
+ STR(COL3,4,0) + ' '+STR(COL4,4,0)+' '+STR(COL5,4,0);
+' ' +STR(COL6,4,0)+' '+STR(COL7,4,0)+' '+STR(COL8,4,0);
+' '+STR(COL9,4,0)
EJECT
SET CONSOLE OFF
? CHR(30)
SET PRINT OFF
SET CONSOLE ON
RELEASE ALL
STORE t TO more